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SUPER COLECCION DE PROGRAMAS MSX 

Ahora, SONY te presenta una super Colección de 
Programas para que te diviertas a lo grande. 
Programas de ACCION, AVENTURAS, SUSPENSE, 
HABILIDAD, ENTRETENIMIENTO y EDUCATIVOS, 
agrupados en prácticos estuches, que podrán tu 
ingenio a prueba a un precio super especial. 



POR CUAL QUIERES EMPEZAR? 



ás información y 
aprovéchate de las ofertas y 
del Club SONY MSX 
enviándonos tu nombre, 
dirección y ocupación, junto 
a una fotocopia de la ga- 
rantía de tu ordenador MSX a: 



Club SONY MSX Apartado de Correos 61.278 28080 MADRID 
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SUPEROFERTA 
NAVIDAD 



pásate las fiestas mas emocionantes con 



oferta de packs 



REYES DEL 
ARCADE 

Con los juegos mas adictivos que 
dejaran tu joystick hecho migas. 
Por solo 2000 pelas cuatro sensacto- 
lales juegos. 

STAR RUNNER 
MATAMARCIANOS 
KRYPTON 
MAD FOX 

Ha; 



SU PERCEREBROS 
EN ACCION 



Rómpete la cabeza y haz que 
amigos se vuelvan locos con 
nuestra oferta para supercocos. Por 
solo 1000 pelas dos juegos que son la 
monda 

LORD WATS0N 
EL SECRETO DE LA PIRAMIDE 




a. i 



PROGRAMACION 
A TOPE 



pesetejas 



programadores harán su 
tas navidades por solo 700 



GAVIES TUTOR (I) 





IT 


SI 


X 

Dirección™ 

Población-- CP . 



Provil 



.... Tlf...... 



pta* 2.000 



REFES DEL ARCADE 
SU PERCEREBROS 
EX ACCIOX ptasr l.OOO 

PROGRAMACION 

A TOPE ptas 700 

Gastos de envío 200 Ras. 

Remito taton bancario de Ptas 



Recorta y envía este boletín a 

MANHATTAN TRANSFER, S.A. 
Roca i Batlle, 10-12 bajos 
08023 Barcelona 

adjuntando el resguardo del giro 
postal o un talón bancario al 
portador. 

Oferta valida para, todos los pedidos 



Editorial. 



SEGUIMOS EN LA BRECHA 



JET' < BEEF^ sú 

iS iife é^m? 




MONITOR AL DIA 



RESUMEN DESONIMAG'Í 



Este certamen de la edición Soni- 
mag del presente año, celebrado 
en la feria de muestras de Barcelona, no 
se caracterizó por un elevado número 
de representantes de software. Todo lo 



la feria, pero sí hicieron acto de presen- 
cia para informar de sus novedades más 
destacadas. Lo más evidente, y siempre 
relacionado con el mundo MSX, lo 
destacamos resumidamente aquí. 
-Por vía Serma nos llegó la noticia 
: :n el mercado nacional 



cartucho para los MSX de segunda 
generación llamado F-15 Strike Eagle. 
Con gráficos igualables a la versión 
Atari y comercializado por Micropro- 

-Discovery presentó una serie de 



Androgynus (MSX-2), Vaxol, Scram- 
' ble Formation (MSX-2), Rastan Saga 
(MSX-2), Druid (MSX-2), City Con- 
nection, Breakin, Super Rambo (MSX- 
2),SuperLaydock,Hydlit' ' 



Las Vegas, y Bridge. 
-Depués de acabada la 



After Burner a 
y Abracadabra 



de programa 



uno en el Reino Unido- a un precio 

un joystick profesional, 
presentado por Alfamatic, prevé ser un 
bombazo por la calidad de este pro- 



de la anexión de 
ift. Una ce 

bits. De todas formas, espera- 
mos ver algún plato fuerte en el campo 
de \os MSX. ^ { 

trepidante -valga la metáfora-, infor- 

acontecido en el campo de software de 
esta distribuidora. Ya están a la venta 
Tensión y Frankie. Las serie budget 
continúan dando que hablar. Y... ¡aten- 
ción!, vuelven los programas de strip 
" ' Strip Poker 2 Plus, ' ' 



JESUS ALONSO: DE 
DINAMICADRO 

ti ni carta recibida en ls primera 



ahora Director Comercial de Microdi- 
gital soft, S.A. -entiéndase Dinamic-, 
nuoirn amigo Jesús Alonso, dejaba la 
dirección de esta compañía para hacer- 
se cargo de las mismas funciones en la 
distribuidora Drosoft. Un acuerdo en 

bas empresas ha obligado a este citado 
cambio. Manuel Cubedo, por tanto, 
pasa a ocupar la función de director de 
operaciones en Dinamic. Le deseamos 



RESUMEN DE PC 
SHOW '88 



da al respecto. Por el 
aunque elfo no implique , 
ño ordenador tiende a caer en baja, los 



mucha de 
que el peque- 



m -Dmamic le y 8 To 0 po a fu^ronTaTúnicas 
presentes en la edición PC "hoTdel 



6 



.Por Willy Miragall. 



Entramos en 
MEGABASE 



Por fin hemos o 

l 

datos de la revista MEGA Joys- 
tick. Hacerlo es muy sencillo, 

deTeluí^- — 



Para poder utilizar MEGABASE 

?CTÍsu Ce MEGA S Joystick" en "a d que 
aparezca el cupón de conexión (a partir 
del número 2), rellenar este cupón con 
vuestros datos y enviarlo a MEGA 

Cuando el cupón llegue a su destino 

como usuarios de la base de datos. Con 



tmzar' MEG/> 



NadTm 



más hacerlo, y si habéis configu- 

de datos, No paridad y 1 Stop bit), 
parecerá en la pantalla del ordena- 



vosotros el logo de la base de datos; 

columnas, ya que es el único fragmento 
del BBS que no se ajusta al ordenador 
de cada usuario. Por otro lado es 
lógico, dado que MEGABASE no sabe 



3™ 

MAN, c 



LXado^asta 
MEGABASE 



evo usuario (S/N)? 
js N (no), considerará que 
equivocado al escribir el 
ios dará otra oportunidad. 



>s S (si - ), MEGABASE not 



(algo o 



e™defamre2 U MÉGABASE de ah ° ra 
Qué password desea tener? 

Hay^ que introducir aquí una contra- 

:áis capaces de recordar. Si 

Kcedera^GAB^^Eiu'co^^ 
ña se utiliza para que otros usuarios, 

no puedan hacerse pasar por vosotros 
mientras conectan con MEGABASE. 
NO DEIS VUESTRO PASSWORD 
A NADIE, POR MUY AMIGO 
QUE SEA, ya que el dueño del pass- 
word es el UNICO RESPONSABLE 
DEL USO que se haga de él. 
Verificación del password 

Pues justo eso, hay que teclear de 
nuevo el password para aseguraros de 
que no os habéis equivocado al teclear- 



senttbmdad 8 yeTsYS y Op q no solano Ü 
os permitirá el acceso, sino que se os 
puede vetar por tiempo indefinido. 
Nombre real 
Para que MEGABASE pueda po- 



bre real, así como vuestra dirección y 
otros datos que permiten que MEGA- 
BASE se adapta mejor al usuario que la 
está utilizando. 

¿Tiene el modem continuamente co- 

Esta pregunta en realidad esconde 
otra con significados muy diferentes. 

tado permite que vuestro ordenador 
reciba llamadas además de hacerlas. Si 
respondéis que SI a esta pregunta, 
MEGABASE entenderá que puede lia- 
Marca y modelo de... 

La marca y modelo del ordenador, 
del módem y del programa de comuni- 
caciones (si utilizáis alguno) permiten a 
MEGABASE utilizar opciones espe- 
ciales que mejoran el rendimiento de la 

Columnas en pantalla (40, 80) 
Pues eso, si es bien fácil. ¿Cuántas 

T Ve tfata' dTindlcarle a MEGABASE 

cias de escape y de qué tipo. Si, como 
suponemos, conectáis con vuestro 
MSX deberéis indicar VT52, siempre 
que no utilicéis un programa de comu- 



Protocolo de comunicaciones 

Por el momento MEGABASE sólo 
contempla dos protocolos de comuni- 
caciones para enviar y recibir ficheros. 



2400; pero 
^oTdejan 



CONCURSO- 



1 er CONCURSO 
DE ARTICULOS 
PERIODISTICOS 



El primer concurso de artículos 
periodísticos -en base al entor- 
no informático MSX-, organi- 
zado por Manhattan Transfer, 
continúa en el último mes de 
plazos de entrega. 



1 \ El tema con el que irá relaciona- 
1 } do el artículo deberá tratar sobre 
la informática. El contenido es libre, 
sin embargo, deberá ir relacionado, 
específicamente, con el estándar MSX. 

2) Podrán participar todos nuestros 
lectores, cualquiera que sea su edad. 

3) Los artículos se escribirán meca- 
nografiados, a doble espacio, y con una 
extensión mínima de cuatro folios. 



PREMIOS 

6) MANHATTAN TRASFER pre- 
miará con una mesa de ordenador, 
junto con un lote de software, al 
artículo ganador del concurso, que a su 

7) El premio se hará efectivo a los 30 



9) Todo el i 

iropjedad de Manhattan Transfer, S.A 




parte de la reseña del anterior número. 

"Para participar en este descabellado 
concurso solo tendréis que remitir un 
dibujo, da igual como sea, en el que 
plasmaréis cómo imagináis vosotros la 
redacción de Manhattan Transfer -y 
ahora os daremos unas pistas-. Aten- 
ción, no se trata de hacer dibujos 
profesionales, sino tan solo de crear un 
dibujo, boceto, diseño, da lo mismo, 

tros que son- a los distintos personajes 
redacción. Si los retocáis y les 




:1 personal queda por entero 
o libre albedrío. 



BASES 

Pod 

su edad! 

más sencillos o mejor realizados -se- 
guimos insistiendo en el tema-, hasta 
una fecha límite de plazos de entrega: 
31 de diciembre de 1988. La entrega del 
premio -el aparato espía de SVI, co- 



is fechas de las vac; 
' como se suele dec 
oncurso el fallo • 



:ia de participar es nues- 
a. Hay que destacar que 



ino más bien un detalle humorístico 
c ¡os lectores hacia MSX-Club. Por 
Itimo, señalar que nadie se descuide 



EL APARATO ESPIA DE SVI 



funcionTcon unpUa de 9 votóos"^ 
Ear Parabolic SVI-2020 es un aparato 
muy curioso, el cual mediante la pulsa- 
ción de un simple interruptor, permite 

deToTd" 0 "" 




INDICE BIT-BIT 

) TIME OUT 

' -NEWFRONTIER- 

(2) GAMES TUTOR 

v ' -MANHATTAN TRANSFER- 

(3) RASTAN SAGA 

x ' -TA1TO- 

(4) DRUID 

v ' -DEXTERSOFT- 

(5) GOLVELLIUS 

v ' -COMPILE- 

MEGANOVA 



i TIME OUT 





(2) GAMES TUTOR 



Hnm serier^yueTto 6 pinja 

en Basic. Así, mediante unos^ivertidos 
juegos cortos, se podrán realizar desde 
modificaciones en los propios juegos 
-cada pequeño programa incorpora 
explicaciones previas para realizar 
cambios- hasta la creación de nuevos 
juegos a partir de las rutinas vistas. 

Un análisis de los juegos de esta 
cinta nos permitirá conocer los detalles 

-Caza-submarinos, por ejemplo, es 
el clásico programa para evitar la 



y los gráficos 

larderos, por el contrario, es 
el juego clásico del aterrizaje de un 



iii ÜÜI i 



TOP-CLUB 



Todos los programas son listables, es 
cir, podemos acceder a su listado, de 
forma^que el estudio de la progra- 
vas en el campo de la informática- 
- "I punto fuerte para los que se otan 
lando en el lenguaje Basic. ¡Basic 



(3) RASTAN SAGA 





RASTAN SAGA ha sido realizado 
por TAITO, y distribuido en nuestro 
país por DISCOVERY INFORMA- 
TIC (esperamos que cunda el ejemplo). 

Nuestro objetivo consistir.) en suur 
a RASTAN a través del reino de 



¡Tgran demonio q S 



Ü CAPITAN SEVILLA 



TRIPLE 
IL COMMANDO 

§ MASTER GAMES 

j| SILENT SHADOW 

ffl TEMPTATIONS 

% megachess 
ii mad mix game 
s humphrey 
| black beard 
Imutantzone 



DivUiL'rTnfoTmática CE3> 

GALERAS I 



El basic paso a paso 



MUSICA EN 
BASIC (V) 




RUIDO s ^ e ! s ^ sx cueman 



s de SOUND. Ade- 



.s MSX. I 



totalmente aleatoria de frecuencias, o 
mejor dicho, el ruido blanco contiene 
todas las frecuencias cada una con una 
amplitud aleatoria. Esto equivale a 
decir que el ruido está formado por la 
combinación de una infinidad de notas. 

El ruido de los MSX es una útil 
variante del ruido blanco. En el ruido 
de los MSX no intervienen todas las 
frecuencias, sino una parte, determina- 
da por la modulación que hagamos del 
ruido. Gracias a eso podremos indicar- 
le al MSX que queremos un ruido 
grave, o un ruido agudo. 

Pero vayamos a lo práctico, el canal 



10 FOR 1 = 0 TO 31 

20 SOND 6, I 

30 SOUND 7, &B101 10111 

40 SOUND 8, 15 

50 NEXT 1 



M Por Willy MiragaU, 

Vamos siendo capaces de rea 
lizar pequeñas melodías con 
la instrucción SOUND. Pa 
:e también que algunos se han 
aventurado a realizar ciertos a 
des. En este número veremos 
mo utilizar el canal de ruido y 
las formas de onda del 
PSG de nuestros MSX. 



\N\Ns 8 



EL CANAL DE RUIDO 

El canal de ruido se activa y desacti- 
va de forma diferente a como lo hacen 
los canales musicales. Como ya sabéis 



;n tres bits que controlan el canal 




SOUND 7.&10011010 



¿MEZCLAR MUSICA Y RUI- 
DO? 

¿Por qué mezcla el PSG el 



:a de los c 



i. El 



PSG sólo puede controlar el voL 

de tres canales, los canales musicales. 
Debido a esto el ruido sólo podría 
emitirse en un volumen determinado. 
Pero el PSG utiliza un truco sencillo y 
eficiente. Mezcla el ruido con la música 
antes de amplificarla, con lo que pode- 



SOUND 7, &H10zyxcba 

z=0-^ Can 
z=l^ Can 
y=0-> Car 
y=l-> Car 



x=l-» Can 
c=0-> Canal C ___ 
c=l- Canal C desactivado. 
b=0-^ Canal B activado. 
b=l-> Canal B desactivado. 
a=0-> Canal A activado. 
a=l— > Canal A desactivado. 



: mezcla con canal B musical. 
;cla con canal A musical. 
; mezcla con canal A musical. 



10 SOUND 0,254 

20 SOUND 1,0 

30 SOUND 8,10 

40 SOUND 7,&B101 1 1 1 10 

50 A$=INPUT$(1) 

60 SOUND 6,0 

70 SOUND 7,&B101101U 

80 A$=INPUT$(1) 

90 SOUND 7.&B10110110 
100 A$=1NPUT$(1) 
110 SOUND 7,&B101101U 
120 FOR 1=0 TO 15 
130 SOUND 8,1 
140 FOR J=l TO 100: NEXT 
150 NEXT I 

160 SOUND 7,&B10U1111 



FORMAS DE ONDA 



■A tipo de envolvente que se utilice 
'ende del contenido del registro 13 
ntrolador de envolvente). En la 
ira 1 podréis observar las formas de 
la que corresponden a cada valor de 



E=l 789772. 5/(256' í F) 
SOUND 12.E/256 
SOUND 11,E MOD 256 





Programa ■ 



■ Por Juan García Jul ■ 



Este programa de entreteni- 



S.B. STREETS 




PROG. DE ENTRETENIMIENTO 
PROGRAMADOR. E. GARCIA JUL 
TITULO :S.B. STREETS 
PARA MSX-EXTRA 
STA BARBARA CTARRAG0NA3 

10 SCREEN 1.2.0:COLOR 15.1.l':Pft=0 
20 X=10:Y=60:ST=1 :TIHE=0:HH=1 :UI=3 

' DEFINE SPRITES 

40 S1$=CHR*C03+CHR*C2413+CHR*C2023+ 
CHR*C74 3+CHR$C 1 14 3+CHR$C 1 273 +CHR*C 7 
93+CHR*C783+CHR*C122 3+CHR*C2433+CHR 
*C1293+CHR*C03+CHR*C03+CHR$C0]+CHR$ 
C03+OHR*C03 
50 S2*=CHR* C 8 3 +CHR* C 1 58 3 +CHR* C 9 11 +C 
HR*C733+CHR$C1253+CHR$C2533+CHR*C20 
U+CHR*C 731 +CHR$C 1051 +CHRÍC43 3+CHR* 
C63+CHR$C283+CHR*C483 
60 SPRITE*C03=S1*+S2* 



70 S3$=CHR* C 8 1 + CHRÍ C 28 1 + CHR$ C 55 1 +CH 
R*C1 1 1 1 +CHR*C 2231 +CHR$ C 1 27 3 +CHRÍ [ 
1+CHR*C663+CHR$C127 3+CHR*C127 3+CHR* 
C71 3+CHR*C483+CHR*C 1203 + CHR$C 48 3 -t 
R*C03+CHR*C03 
80 S4*=CHR*C0 3+CHR$C0 3+CHR*C2483+CH 
R*C244 3+CHR*C226 3+CHR*C 197 3+CHR*C43 
1 +CHRÍ C 23 1 +CHR* C 255 3 +CHR$ C 255 1 +CHR* 
C301+CHRÍC 100] +CHR*C 2401 +CHR*C 961 
SPRITE*C13=S3*+S4* 
3 S5*=CHR*C28 3+CHR$C34 3+CHR$C13+C 
HR$C73+CHR*C63 3+CHR$C 1 1 1 1+CHRÍC2161 
+CHR* C 255 1 +CHR* C 255 1 +CHR$ C 1 84 3 +CHR$ 
C1113+CHR*C563+CHR*C03+CHR*C03+CHR* 
C03+CHR*C03 
110 S6*=CHR$C03+CHR$C03+CHR$C03+CHR 
*C2243+CHR*C2223+CHR*C1431+CHR*C223 
1+CHR$C2533+CHR$C2503+CHR*C124 3+CHR 
$C2161+CHR*C1123 
120 SPRITE*C23=S5$+S6* 
130 S7$=CHR*C313+CHR*C633+CHR$C1273 



.22 



+ CHR$ C 1 29 3 +CHR* C 255 3 +CHR* C 255 3 + CHR* 
C255 3+CHR*C255 3+CHR*C206 3+CHR*C49 3+ 
CHR*C 1233+CHR*C493+CHR*C03+CHR*C03+ 
CHR$C03+CHR*C03 

140 S8$=CHR$(248 3+CHR*C244 3+CHR$C22 
6 3 +CHR$ C 1 38 3 + CHR* C 46 3 + CHR* C 58 3 +CHR* 
C2443+CHR*C2483+CHR*C 1123+CHRÍC 1283 
+CHR$C 1923+CHR*C 1283 
150 SPRITE*C33=S7*+S8* 
160 D1*=CHR*C33+CHR*C51 3+CHRÍC 1953+ 
CHR*C 1 3+CHRSC 153+CHRÍC 147 3+CHRÍC 173 
+CHR$C0 3+CHR*C 1 3+CHRÍ C973+CHR*C23+C 
HR$ C 29 3 + CHR$ C 59 3 +CHR$ C 1 2 1 3 +CHR* C 63 3 
+CHRÍC83 

170 O2*=CHR$C03+CHR*C1283+CHR*C83+C 
HR*C 163+CHR$C2243+CHRÍ C 1283+CHRÍC 19 
23 + CHRÍC 192 3 + CHR*C32 3+CHR*C323 + CHRÍ 
C 323 +CHR$C 2223 +CHR*C 2073+CHR* C 2543+ 
CHR$C2523+CHR*C 163 
180 SPRITE*C43=D1*+D2$ 

190 ' COLORES UPOKES 

200 UPOKE BASEC6 3 + 0.8.HAF 
210 UPOKE BASEC63+1 . 8.H4F 
220 UPOKE BASEC63 + 2.8.H17 
230 UPOKE BASEC63 + 3.8.H51 
240 UPOKE BASEC63+4.8.HE1 
250 UPOKE BASEC63+5.8.HA1 
260 UPOKE BASEC63 + 16.8.HC1 

DEFINE UPOKES 



280 FOR NU= 
290 UPOKE I- 
300 FOR NU= 
310 UPOKE h 



■2 TO 15 :READ □ * 
IU.UALC"«,H"+D*3 :NEXT 
^64 TO 95 :READ □ * 
JU.UALC"8,H"+D$3 :NEXT 
320 FOR NU=128 TO 1 35:READ D* 
330 UPOKE NU.UALC ' 8.H"+D*3 :NEXT 
340 FOR NU=192 TO 255:REA0 D* 
350 UPOKE NU.UALC"U "+D*3 :NEXT 
360 FOR NU=264 TO 287 :READ D$ 
370 UPOKE NU.UALC"8.H"+D*3 :NEXT 
380 FOR NU=320 TO 351 :READ D$ 
390 UPOKE NU.UALC"&,H"+D*3 :NEXT 
400 FOR NU=1024 TO 1039:READ D* 
410 UPOKE NU.UALC"8,H"+D*3 :NEXT 

420 ' DATAS 

430 DATA 00,F7.F7.F7,00.BD.BD,BD 
440 DATA 34, EB. 41. 82. 41, 43, 81. 00 
450 DATA 0D,2D,6F.F0,20,E0,E0.20 



500 DATA F 
3 DATÉ 



520 DATA FF,FF,C1.C5.D9.C1.C1.FF 
530 DATA FF,FF,83,93,A3.83.83,FF 
540 DATA FF,C1,D5.C9,C5,C1,FF.FF 
550 DATA FF.83.93.A3, AB.83.FF.FF 
560 DATA 88.88.55.55.22.22,55.55 
570 DATA 95, ED, 52, 00, 00, 00. 00, 00 
580 DATA 00.00.00.00,7F.FF,00,00 
590 DATA 00,00,00,00,FF,FF,00.00 
600 DATA 00. 00. 00. 00. FF. FE. 00. 00 
610 DATA CC,63,5A.7F,3F.0F,07.07 
620 DATA 52.8C58.FA.F4.F0.E0.C0 



630 DAJA 03. 03. 06. 03. 04, 07, 27, 5F 
640 DATA C0.E0.C0.C0,C0,E0.A4,58 
650 DATA 19,7F,EF,FB,76.3B.9F,77 
660 DATA 18,DC,FE,A6,DC,B8,AD,76 

670 ' MARCADORES 

680 SPRITE ON:KEY OFF 

690 LOCATE?, 3 :PRINT"S. B. ' STREETS" 

700 L0CATE11,7:PRINT"1.988«' 

710 LOCATE1.20:PRINT"PULSA <SPACE> 

PARA EMPEZAR" 

720 K$=INKEY$:IF K$ = "" THEN 720 
730 IF K*=" " THEN 740 ELSE 720 
740 PLAY"04DFDFAFGGE " , "02AACCDDFD" 
750 CLSiFOR 1=1 TO 32 :UP0KE67 1 9+ I . 2 
3 

760 UPOKE 6879+1.23 

770 NEXT I ¡L0CATE3. 19 :PRINT"PUNTOS" 
780 LOCATE 15. 19:PRINT"UIDAS" :UI 
790 LOCATE 15,21 :PRINT"STREET" :HH 
800 LOCATE 1.21 :PRINT"00" 

820 FOR 1=1 TO 224:UPOKE6143+I,0 
830 NEXT I :FOR 1=0 TO 31 
840 UPOKE 6368+1. 16 :UP0KE6656+ I . 16 
850 NEXT:UP0KE6326.8:UP0KE6327.9 
860 UPOKE 6358. 10 :UP0KE6359. 11 ' 
870 UPOKE 6350,l:FOR 1=1 TO 20 
880 UPOKE 6603+1, 24 :UP0KE6635+ 1,25 
890 UP0KE6495+ I , 34 : NEXT :UP0KE6516, 3 
5 

900 Yl=INTCRNDC-TIME3*25 3+90 :X1=0 
910 Y2=INTCRNDC-TIME3*153+60:X2=13 
920 ST=3:G0SUB 2190 
930 m=3:M2=l :X=10 :Y=47 :SOTO 1990 

950 FOR 1=1 TO 256:UPOKE6143+I,0 
960 NEXT :FOR 1=0 TO 31 
970 UPOKE 6400+1, 1 6 :UP0KE6592+ 1 . 16 
980 UPOKE 6624+1, 16 :UP0KE6656+ I . 16 
990 UPOKE 6368+1. 16 

' 000 NEXT :UPOKE6300, 26 :UPOKE6301 . 27 
010 UPOKE 6332.28:UP0KE 6333,29 
020 UPOKE 6293.26:UP0KE 6294.27 
030 UPOKE 6325.28:UP0KE 6326.29 
040 FOR 1=1 TO 34 STEP 6 
050 UPOKE 6495+1, 33:UP0KE6496+I, 35 
060 NEXT:UPOKE 6312,8:UP0KL o313,9 
070 UPOKE 6344, 10 :UP0KE6345. 1 1 



TCRNDC- 
3 Y2=INTCRNDC- 



*253+70 
IME3*253+70 



!2=0 



20 Ml=l :M2=2:M3=3:G0T0 1990 

40 F0RI = 1T0256 :UP0KE6 1 43+ 1 , 0 ¡NEXT 
50 FOR 1=0 TO 31 :UPOKE 6400+1,16 
60 UPOKE 6656+1, 16 :UP0KE6368+I . 16 
70 NEXT:FOR 1=1 TO 32 STEP 6 
80 UPOKE 6527+1, 33 :UP0KE6528+ I , 35 
90 NEXT:PUT SPRITE 0 . C 160. 34 3 , 6, 0 
200 UPOKE 6180,26:UPDKE 6181.27 
210 UPOKE 6212.28:UP0KE 6213.29 
220 UPOKE 6312.8:UP0KE 6313,9 
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Programa 



1230 UPOKE 6344, 10:UPOKE 6345.1 
f'l = INTCRNDC-TIME3*403+70 :> 

1250 Y2 = INTCRNDC-TIriE3*403+70:> 

3 Y3=INTCRNOC-TIME3*403+70:> 

3 Y4=INTCRNDC-TIME3*403+70:> 

3 ST=5:G0SUB 21 90 :X=10 : Y=55 

3 m = 1 :M2=1 :M3=4:M4=3:G0T0 1 

3 FORI=1TO256:UPOKE6143+I.0:NEXT 
3 FOR 1=0 TO 31 :UPOKE6400+I . 16 
3 UPOKE 6560+1. 16:UP0KE6592+I. 16 
3 UPOKE 6624+1, 16 :UP0KE6368+ 1 , 1 6 
3 NEXT:FOR 1=1 TO 30 STEP 5 
3 UPOKE 6210+1, 26:UP0KE6211 + I, 27 
3 UPOKE 6242+1, 28 -.UPOKE6243+I, 29 
3 NEXT:UPOKE6330,8:UPOKE6331.9 
3 UP0KE6362, 10:UPOKE 6363.11 
3 Yl = INTCRNDC-TiriE3*183+70:Xl=0 
3 Y2=INTrRNDC-TII1E3*183+70 :X2=24 
í Y3=INTCRNDC-TIME3*183+70:X3=82 



"crndc-tihe: 

1440 ST=5:G0SUB 2190:> 



¡3 + 70:> 



t=15 



l = 2:60T0 1990 



1470 F0RI=1T0132:UP0KE6143+I . 30:NEX 

3 FOR 1=1 TO 32:UP0KE 6335+1.16 

3 UPOKE 3623+1,16 

3 NEXr:UPOKE5330.31 :UP0KE6 1 90. 31 

3 FOR 1 = 1 TC '35 STEP 5 

3 UPOKE 5¿c3+I.33:UPuKE6464+I.35 

3 NEXI 

3 Y1=INTCPNÜC -TIME 3*483+56 :X1 = : 

3 ¥2=INTCRNDC-TIMEJ*48D+56:X2=20 

3 Y3= I NT C PNU C -T I ME 3 *48 3 +56 : X3= 1 0 

3 Y4=INTCRNDC-TIME3*4 8 3+56:X4=3 

3 Y5=INTCRNDC~TIME3*483+56:X5=e 

3 ST=5:G0SUB 2190 :X=10 :Y=55 



TIME=0:GOTC 



: 390 



3 FOR 1=1 TO 128:UP0KE6143+I,3 

3 UPOKE 6271+1. 0:NEXT 

3 FOR 1=1 TO 32:UP0KE6399+I . 16 

3 UPOKE 6623+1. 16:NEXT 

3 UPOKE 6200.31 :UPCKE6241. 31 

3 PU1 SPR1TE 0. C50.451.6.0 

3 UPOKE 6390. 1 :UP0KE6 1 54 . 31 

3 Yl=INrCRNDC-T!ME3*303+70:Xl- 

3 Y2=INTÍRNDC-TIME3*303+70:X2=23 

3 Y3=INTCRNDC -TIMEl*30 3+70:X3=b0 

3 Y4=INTCRNOC-TIME3*303+70:X4=13 

1740 Y5=INTCRNDC-TIME3*30 3 + 70:X5M7 



■TIME3*303+70 :X6 = 22 



760 ST=6:G0SUB 2190:X=5:Y= 
770 M1=4:M2=4:M3=4:M4=4:MS 
780 TiriE=0:GOTO 1990 

730 ' P. 7 

FOR 1=1 TO 35 STEP 6 



¡10 UP0KE6591 + 



3 NEXT:FOR 1=1 TO 32 



3:UP0KE6592+I,35 



830 UP0KE6495+I.16 



UP0KE6687+: 



3 NEXT:FOR 1=1 TO 150 STEP 9.4 
850 UPCKE6194+I.40:UPOKE6195+I,41 
860 UP0KE6226+ I , 42 :UP0KE6227+ I , 43 
870 UP0KE6161+I.128:UP0KE6162+I,12 
i:UP0KE6163+I. 1 28 ¡UPOKE61 64+ I . 129 
880 NEXTiFOR 1=1 TO 16:UP0KE 6479+ 
,24:NEXT 

890 Y1 = INTCRNDC -TIME 3*30 3+93 :X1=0 
900 Y2=INTCRNDC-TIME3*30 3+93:X2=24 
910 Y3=INTCRNDC-TinE3*303+93:X3=50 
920 Y4=INTtRNDt-TIME3*303+93:X4= 

930 Y5=INTCRNDC-TIME3*303+93:X5=19 

940 Y6=INTCRNDC-TIME3*30 3+93:X6=22 

950 ST=6:G0SUB 2200 :X=10 : Y=55 
960 M1=2:M2=1 :M3=2:M4=3:M5=1 :ri6=l 

980 ' MOUIM. i, COMPROU. 

990 ON SPRITE GOSUB 2470 
2000 FOR 1 = 1 TO 255 STEP ST 
2010 PUT SPRITE 1, rxl + I,Y13,7,m 
2020 PUT SPRITE 2, CX2+ I ,Y2 3 . 8, M2 
2030 PUT SPRITE 3. C X3+ I , Y33 , 5, M3 
2040 PUT SPRITE 4.CX4+I.Y43.2.M4 
2050 PUT SPRITE 5. CX5+I . Y53 . 3. M5 
2060 PUT SPRITE 6. CX6+ 1 . Y6 3 . 9. 116 
2070 PUT SPRITE 31.CX.Y3.4.4 
2080 S=STICKC03 

2090 IFS=1THENX=X+3:Y=Y-3:GOTO2130 

2100 IF S=3 THEN X=X+6:G0TO 2130 

2110 IFS=5THENX=X+3:Y=Y+3:GOTO2130 

2120 IF S=7 THEN X=X-6:G0T0 2130 

2130 IF X>=253 THEN X=251 

2140 IF Y>=125 THEN Y=!24 

2150 IF Y<=5u THEN Y=4 8 

2160 IF X<=2 THEN X=4 

2170 IF X=251 AND Y=124 THEN HH=HH+ 

l:GOTO 2220 ELSE NEXT 

2180 GOTO 2000 

2190 • SPRITE APAGADOS 

2200 M1=30:M2=30:M3=30:N4=30:M5=30: 
M6 = 30 

2210 RETURN 

2220 ' A QUE PANT. UA 

2230 PUTSPRITE0. . ,29:PUT SPRITE1..0 
2240 PUTSPRI TE2. ,0:PUT SPRITE4..0 
2250 PUTSPRITE3, ,0:PUT SPRITF5..0 
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2260 PUT SPRITE6. .0 

2270 PLAY"05DDFFEEDFE" , "04ADADADAD" 
.T0575 :UP0KE6143+1 , 32 :NEX 

2290 LOCATE 21 , 21 :PRINTHH 

2300 PU=PU+10000:LOCATE0,21 :PRINTPU 

3 FOR 1=1 TO 700:NEXT I 
2320 ON HH GOTO 820.950.1130,1310.1 
470, 1630, 1800.2330 

2330 ' FINAL 

2340 PLAY"07FDEDDEEA" , "03L1FE" 

1=1 TO 736:UP0KE6143+I. 16 
2360 NEXT:LOCATE 0.6 
2370 PRIh ' ' 
2383 F 
2390 PRIh 



ilx i :luüa i L 0. a 



2420 PRINT-títítlÍl , . . 

2430 LOCATE 4.16:PRINT" MSX SOFTUAR 

2440 LOCATE 5. 20 :PRINT" PUSH SPACE 



K$=INKEY$:IF K$ = "" THEN 2450 
IF K$ = " " THEN RUN ELSE 2450 

' MUERTE UNA UIDA 

PLAY"03DEFDE" . "04DEFDE" 
UI=UI-1 :LOCATE20. 19:PRINTUI 
IF UI=0 THEN 2340:SPRITE OFF 
PUT SPRITE 31, C10. 1203.4,4 
X=10:Y=120:SPRITE ON 
RETURN 



Test de listado 




Software — Por MSX Boixos Club- 



.. Serokn- 



AITT AT PTAU te intré P'^ llamando a 

Me 1 AL bl/Alv, Acab ? d % in 1 fil . trar . m ; « 

/->T T -« r-r\T rm T r\ /-V enemiga. Solicito información 

CUMPLIENDO tsttaa , s „. 

OT T fVrinTin píente Intrépida. Orden de lo- 

\ I I IJrKrK l aliza r y des 5 u . i '' Metal Gear. 



Repetimos. Orden de loca... 




Software i 




Software ¡ 




■ Por Oscar García Sánchez i 



(ALHELIES 
Y AMAPOLAS) 



Este apasionante juego edu- 
cativo trata del misterioso 
mundo de las flores, tan solo 
dos casos: alhelíes y amap 



y amapolas 
mplo. Muy 



recomendado para los ai 
de las flores, como su propio 
autor nos indica. 



ALHELIES Y AMAPOLAS 
3» * POR 
40 '# OSCAR GARCIA SANCHEZ * 
30 ••* PARA * 

8 ^a'§;;¿l¿^!s;;?8gi?ii oF 

f:open "gtp: 'asm 

100 '******* PRESENTACION ******* 
110 ' 

120 DRAW"bml00, 30IM-1 , -4in-2, -4m-l , -4 
m-0, -4 m + I , -4m+2, -4m + 3. -4M+2, -4m + i, 
-4rem+l , -4m+0, -4er2f iíi + 3. +4m+4, +4m+3 
. +4m+4. +4m+3, + 4IA + 2, + 4tn + 2, + 4M1 + 1 , + 4m- 
2, +4m-3, +4m+3, -4a+2, -4M+3, -4A.+4 , -4(u 
+é^-2tn + l , +0r2m+6^ + lm + 3j+4m + 5^+4m+4^ 

in-0, +2 ' ' ' ' ' 

130 DRAU ■ m-2 , +4m-2, +3m-3, +3g2m-9,+2 
m-3, -4m-6, -4tn + 6, +4m+3, +4m+4, +4m+3, + 
4m+2,+4fn+l ,+4m + I ,+4m + l ,+4ni-0, + 4in-l , 
+ 4m-2^t4in-3j+4m-4j + 4in-2^-0m-l^-4m-4 
j-4M; .-0M- ,-im- ,-2m- , -2m- , -2.n- 

140 DRAW"m + l , -7lh-l , -7di+l ,+7m- 1 ,t7in- 

2, +7lii-3. +7ID-2, -4m-3, -4M-4, -4il>-2, -0tii 
-6, +2m-l. +2M-2.-4M-l,-4M-0,-6M+l,-4 
M+2, -4M+3, -4M-3, +4M-2, +4M-1, +4M+0, + 

Í30 DRAWM-4. -3M-3. -3M-6. -311-7. -3M- 

3, -3M-l, -3M-4. -3M+4, -3M+3, -3M+2, -3M 
+4.-3M+3. -3M+9. -3M+I0.-3" 

160 DRAW l C12BD33BL4M-2. +211 + 1. +411+1. 
*4M+1 , +411+0, +411-1 , +4M-2, +4M-3, + 4M+I 
. +4M+2, +4M+3, +4M + 4. +4M + 3. +4PI + Ó. +411- 

I , -4M-0, -2M + 1 , -4M+2. -4M+3, -4M+1 , -4M 
+0, -8M-1.-4M-1. -4M-1.-4M-2. -4(1-2.-4 
M-3, -411-4,-4(1-3. -011-3, +1M-3, +2M+4, + 
4(1 + 3^ + 4(1+2, +4M+1, +4M+0, +8M-1, +4M-1, 

170 DRAWM + 1 , +4M+2, +4M+2, +411 + 3, +4 
180 DRAWBU20BL20M-2, + 4M - 3 . + 411 - 4 . +4 
(1-3, +4(1-6, +411-7, +4(1+1 , -411+0, -211-1 , - 
411-0,-1611 + 1.-311+1,-311+0.-311 + 1,-311+2 
. -3M+3. -3M+4, -6M+4,-0M+4. +1M+4.+2M+ 

4, +3M + 4, +4M-4, -4I1-Ó, +3M-3, +3M-3, +3M 
• I , +3M+0, + ÓM-1 . +4M-1 ,+411-1 , +4M-I , +4 

■1-1, +4M-1, +4M-2, +4M-2, +4M-2. +4 
190 DRAW"BR83BU33CÓM+3. -0M+3. +111 + 3. 
+2M+6, +3M+7,+3M+8, +311-2, -3M-3. -3M-4 
.-311-3.-311-0.-311-7,-311-8,-311-2. -0M + 

-7(1 + 3, +7(1 + 2, +7(1 + 1. +711 + 1.-7(1-0.-411-1 
, -7(1-1 , -711-9, -4M-8, +7M-8, +7M-é. +7(1- 

II, +7 

200 DRAWM-6, +7BU37BL 1311 + 1 , -711 + 1 , -7 
M-l, -7M-7.-7M-3, +11M-2, +11H+7, -lld + 
3. -3(1-3. +311-1 . +7M-1 , +7M-1 , +7 




210 DRAW " C 1 3BM140. 160U30R10L10D13R7 
C7BM133, 160U30D30R10C3BI1170. 160U30R 
10D30L10C10BM183, 160U30R7F3D10G3L7F 
10D3C14B(1200,160U30R101 - ~ 
R10C3BM213. 160R7E3U9H3I 
220 FOR T=lTO3000:NEXT 
230 CLS 
240 ' 



290 LOCATE 12.6:PRINT* 
300 COLOR 7: LOCATE 4.1: 
NSTRUCCIONES PRES . <f>, 
310 COLOR 9 : LOCATE 4,1. 
MPEZAR PRES. <E>. " 

320 LOCATE 10,17:INPUT "ELIGE OPCIO 



fjl2:PRINT"l.- 
I,Í4:PRINT"2.- 



360 ' ******* INSTRUCCIONES ******* 

370 • 

380 CLSIQOSUB 11*0 
390 LOCATE 8,3: 
400 LOCATE 8, ó: _. 
410 LOCATE 2,8:PRINT"EN PRIMER LUGA 
R TIENES QUE MANTENERENG ANCHAD A LA 
TECLA iCAPS-LOCK>. ■ 

420 LOCATE 2 , 1 2 : PRI NT " CUANDO TE SA 
L3A LA PRIMERA FLOR, TENDRAS QUE E 
LEGIR SI QUIERES VER LA FORMA DE CU 
LTIVO O SU CUIDADO. ■ 
430 GOSUD 1190 
440 GOTO 270 
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0 



Programa ■ 



490 SCREEN 2:DRAW"BM100,90":PRINTM 
> "ALHELIES" 

300 DRAW " BM100 , 91 " : PRINTM , " ALHELI E 
310 FOR I=1TO1000:NEXT 



330 COLOR 7.1,1 
340 30SUB 1260 



: PRINTM. " 



370 COLOR 2:DRAW"BM78,70":PRINTM 



380 DRAW"bm70,90" ¡PRINTM, "De 30 ■ 
0 cid de altura. ■ 

390 BRAW"BM62.110":PRINTM. "Verde 1 
600 DRAW"btnl42^130- : PRINTM j "FlDri 

óf^'DRAW'brnlia^lSa'VpRÍNTltl.^hK'M 

620 30SUB 1340 
630 SCREEN 0:GOSUB1430 
640 IF J*="l " THEN 670 
630 IF J*="2"THEN 730 
660 3OSUB1440 

670 CLS: SCREEN 2: COLOR 7,1,1 

680 COLOR 4:DRAW"BM70 1 30 , ':PRINTM. " 

<COMO CULTIVARLAS?" 

690 DRAWBM70, 31": PRINTM. " -tCOMO 

LTIVARLAS?" 

700 COLOR 2:DRAW"BM30,70":PRINTM, ~ 
SE SIEMBRAN EN MARZO, Y SE TRANS 
PLANTAN POR PRIMERA VEZ CUANDO H 
AN ECHADO TRES O CUATRO HOJAS. ANTE 
S BE TRANSPLATARLAS EN SU SITIO LE 

tpa'ns T ^2n^ N V iene hacer un SE3UNB0 

710 3OSUB1530 
720 SCREEN 0:OOSUB 1430 
730 SCREEN 2: COLOR 4 : DRAW " BM30. 30 " 
'■-LADOS REQUIEREN?" 

;:printm, "<que cui 

nnw 'BM30, 70" : PRINTM . ■ 
NECESITAN ESTAR EN TIERRAS CALCA 



760 GOSUB1330 

780 ;******* SEGUNDA FLOR I HH H H HHI 



810 BRAWBM100, 
S" 

820 FOR G=1TO1000:NEXT 
830 CLS.-GOSUB 1260 
840 OOSUB 1400 
830 DRAWBM10, IT" ~ 



cdrawbmi00.90":prin 

91": PRINTM, "AMAPOLA 




60 COLOR 7:DRAW"BM7e,70":PRINTM, " 
mapola de Islai-idla, del Caucas 

87& DRAW"bm70;90":PRINTttl, "30-i; 
m altura; 18-20 cm diámetro. 
880 DRAW"bM62,110":PRINTM, "ROJO, A 
manilo, Ar.aran- jado, Blanco." 
890 DRAO"binl42,130":PRINtM,"Su til 
lo es frágil" 

900 BRAWbml 18, 130": PRINTM. "Se rep 
roducer. por semillas muy facllmer 

910 GOSUB 1340 

920 S( 

930 II „ 

940 IF J»="2"THEN 3OTO1000 
930 SCREEN 2: COLOR 4 : DRAW"BM7£i, 30' 
PRINTM ," íCOHO CULTIVARLAS?" 
<?60 BRAWBM70, 31": PRINTM ." <COMO CU 
LTIVARLAS?" 

970 COLOR 10:DRAW"BM30,70":PRINTM 
"SE SIEMBRAN EN SU SITIO 



defI 
de estar a 

FLORECE DE 



NITIVO. CADA PLANTITA 

20 cm DE DISTANCIA. 

JULIO A SEPTIEMBRE. " 
980 GOSUB 1340 

- 

PRINTM ,"iQUJ CUIDADOS REQUIER 



ERAW^BMM 

EN?" 

1010 EK.-iw mu», ji 
IDADOS REQUIEREN?" 
1020 COLOR 1 3: LRAWBM30.70": PRINTM 
, "NECESITAN ESTAP -'■ 
BRES MAS BIEN SEC 

1030 COLOR 7.1.1 
1060 LOCATE 0,0:PRINT STRIHG» < 37. "* 

.070 LOCATE 0,20:PRINT STRING*Í37, 

080 LOCATE 10,10:PRINT"FIN LEL PRO 



100 LOCATE 0,13:INPUT " (QUIERES VO 
.VER A EMPEZAR ¡S/N)"IZ» 
110 IF I*="S"THEN CLOSE:üOTO 1L 
120 IF Z»="N"THENPLAY"05C04BAGFEDC 



J FOR Z=1TO3000:NEXT 
J END 

J LOCATE 0,0:PRINTSTRING«(37, " 

1 LOCATE 0,20:PRINTSTRING*¡37, "* 

J RETURN 
J ' 

í ;**#***# PULSA TECLA ******* 
^LOCATE 10,18:PRINT"PULSA UNA T 



I ' IHHHHHHI DATOS ******* 
I ' 

I COLOR 4:DRAWbinl0,70":PRINTM 
í*DRAW ; bm i 0 , 90 " : PR I NTM , ■ Med 1 das 
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Programa ■ 



i Por Antonio Verdú Sanz 



MEL 



Este programa de 
miento está basado en los jue- 
gos clásicos de mapeado -re- 
cuérdese Profanation, King 
Leonard y otros-. En él debere- 

taciones para conseguir un 
único objetivo. Para los nostál- 
gicos de los juegos de antaño. 




*#»***« 

ANTONIO VERDU SANZ * 

ELDA (ALICANTE) * 
1 30 ; ***************************** 

170 DEFINT C-2 : DEFDBL P . R, B : OPEN'GR 

p: "asi : color , i , i : nr*="Ípu- : goto 20 

=MID*<NN», 1,3) :RETURN 



180:SCREEN 2,2:REST0RE 33 
A*: VPO 

.._ ¡73000 
230 SCREEN2:DRAW"S0":BA*="E8R1Í 

6R3E3':SA=9:r1I 

260 FI*(0)="LC 
" BRAVO "+NN*+' 

270 ZH<2) =4:PV*="00" :UI=233:PU=0 
280 VI=3:ZZ<3)»fl:ZZ<7>"4: Y=116:X3=Y 
= i:DEFUSR=t.H7 

!)=63:X(3)=2: 

8:S=12:E=3ó 

8:F1=24:F2= ^2:LT=76 
300 V1=30:GOSUB 3030: CLS: GOTO 890 



340 RR=RND í ■ 



r!3+2:T«=HEX*(F 



v:vKUKt k* natía, v 

380 VPOKE R+8192.RR: VPOKE R + Í.H2F00, 
RR 

390 NEXT R.T 

400 FORT=6208 TO 6239 STEP 2: VPOKE 
T.64:VPOKE, T+1,Ó3:VP0KE T+64,64:VPC 
Kt T +63 , 63 : VPOKE T+32 , 96: VPOKE T + 3G 




T+344 ,32: VPOKE T +343 .33 : VPOKE T+37Ó 
.64:VP0KE T+377,Ó3:NEXT 
420 DATA 0,33,EB.D7,EB 1 D7 l EA.7D.0,E 
C , D6 . FA , FE j F AjFE^FC j0 , DE , AF , FB , FD , F 

430 F REÍTORE F 440: FORT=409V TO 2 4103: R 
EAD A*:VPOKE T .VAL t "IíH" +A*> : VPOKE T 
+ 8192.8<H20:NEXT 
440 DATA ,,.23.3A,63.AA.33 
430 F0RT=6636 TO 6687:VP0KE T,0:NEX 
T 

460 RETURN 
470 F0RT=6673 TO 6683: K=0: FORR= 1 TO 
3: VPOKE T+K,233:K«K+32:HEXTR,T:RET 



: VPOKE T + l.oo;ric; 

THEN VPOKE T.64 
310 RETURN 
320 RESTORE 380:FORT=2 TO 3:F0RR=T* 
236+240 TO T*236+253 
330 READ A»:V = VAL("Í<H"+A*i 
340 VPOKE R,V: VPOKE R+ 1536, V: VPOKE 
R+3384. V 



POKE . . 

370 VPOKE T +236 .30: VPOKE T+237,3i:V 
POKE T+288. 62: VPOKE T+289. 63: VPOKE 
T+448 .30: VPOKE T+449, 31 : VPOKE T+480 
,62:VP0KE T+481,Ó3:NEXT:RETURN 
380 DATA DF, AF.DF. AF.D3, 7F . 7, F0, D7, 
EA , F6, EE, F8, 90, 0, F0, DF , BF , DE. AF, DF, 
AB.D7. AB.F0.3E. BÉ, 7A.Ffi.EA.D4. EA 
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390 DftAW*BM20.80C10UR3URU8L8H3U3L3U 
2R11B2L3B4F3R10U7L3U2R1ÍB2L3C7RÍ0E3 
U4L5U2R11D2L5D5G3L9D8RDR3DL14":PAIN 
TI20.68) , 10 

600 DATA 3B.Ó0,77.ó0.áB.80.D7.80,6B 
,60 I AA,C0 I 30,20 I A8.30 1 EC,60.FÓ J 60,E 
É . 80. Fé , 80, FC . 60, 88 , C0, 33 , 20 . A2 , 30 
610 LINE<11.38> -U4.48) , 13,BF:LINE( 
26,38) - (29,33) , 13, BF: LINE (40, 38) - (4 
3.34>,13,BF 

620 CIRCLE(12,46> , 1 , 8: CIRCLE < 28.33) 
,1,8:CIRCLE<42,32) ,1,8:F0RT=64 TO 9 
6 STEP 4:LINE(33.8l)-(T.40).14:NEXT 
630 RESTORE 600: FOPT=2360 TO 2376: R 
EAD A*,B*:VPOKE T , VAL ( "Í<H " + A* i : VPOK 
E T + 8192, VAL í "kH"+B») . "NEXT 
Ó40 F0RT=64Ó6 TO 6472 STEP 2:VP0KE 
T.64:VPOKE T+1.63:NEXT:RETURN 
650 F0RT=Ó233 TO Ó23Ó STEP 2: VPOKE 
T,8:VP0KE T+1.8:VP0KE T+32.6:VP0KE 
T+33,8: NEXT: VPOKE T,8:VP0KE T+32,8: 
RETURN 

660 FORT=6304 TO 6307 STEP 2: VPOKE 
T,64:VP0KE T+1.63: VPOKE T+32,96:VP0 
KÉ T+33.97:NEXTT 

670 F0PT=32 TO 63 STEP 3:LINE(32,36 
i -(T,40¡ .15 : LINE (32.36) -(0.T+1Ó) , 13 
¡NEVTTI RETURN 

680 RESTORE 700: FORT=3120 TO 3127:R 
EAD A*,B*:VPOKE T, VAL < "l<H' +A»> : VPOK 
E T + 8192.VAL(">!H"+B*) : NEXT 
690 FOR T=6784 TO 6813: VPOKE T, 128: 
NFVT; RETURN 

CATA ,.2C, 80, 34,90, BE.60.EE, 90, 



/UV UH I A ..A.BB.. 

DB.8A 1 AD,8A,24,8B 
7 10 CIRCLE (CVV, 83, .13,CV..,1.3:PAIN 
T STEP (0,0) ,CV : PSET (CVV, 83) , C V: DRAW 



T, 64: VPOKE 1 
KE T+33.97:NEXl 
EP -3:LINE(222, 
ETURN 

7 30 LINE (CYU, 73) - ÍCYU+40, 113), 9, BF: 
LINE (CYU+3, 80) - (CYU+33, 1101.1 , BF 
740 LINE <CYU,73>-CCYU+40, 113) , l:LIN 
E <CYU+40. 73 ) - ( C VU, 1 1 3 ) , 1 
730 PSETlc iU+22,83¡ , 1 : DRAW " C 1 3L3D3L 
3D5R3D10R3U10R3U3L3Ü3 ■ : PAINT STEP ( - 
3,2), 1 3: RETURN 



'60 RESTORE 
EAD A»:L=VAI 

3á í gPAfej?Ki 1 ! 5i:!ffiSB.76 11 lF 1 3 
6.7D,6E,3F,6F,3F. 

780 GOSUB 760:FORT=6348 TO 6331 STE 
P 2:VP0KE T, 129: VPOKE T+l , 128: VPOKE 

T+ 128 .63: VPOKE T+129 , 64: NEXT 
^90 F0P.T=6412 TO 6415 STEP 3: VPOKE 
T, 63 : VPOKE T+32, 64: NEXT: VPOKE 6380, 
128: VPOKE 6383, 128: RETURN 
800 QR=2048+ (CC*8) : QS=6400+CC : QT= 12 
80+<CC*8> :9U=4096+ <CC*8) :BV=QS-Ó4 
810 RESTORE 820:FORT=QR TO QR+13:RE 
AD A*:V=VAL("fcH"*A«) JVPOKE T,V:VPOK 
E T + 8192, 8íHF0: VPOKE T-236, V: VPOKE T 
+ 7936 , !<HF0: NEXT 

820 DATA 36.36.36.36.36.36.36.36.08 
.D8.D8.D8,D8,D8,D8,D8,3F,EE,B3,37,F 
3.7B.7F, .F4.EE,3A,D4,3E.BC.FC. , .3F, 
3F A ■ X X^ XX • F8 ■ F8 1 ■ FE , FE , FE , 0 



T^VAL ( "Í<H" +A*< : VPOKE T+8192, ttHFÉf: NE 

830 FORT=QU TO QU + 13:READ A*: v'pOKE 
T, VAL ( "Í<H" +AÍ) .'VPOKE T + 8192, S<HF0: NE 
XT:VPOKE 6636+CC.CC: VPOKE 6636+CC+l 

¿60 ■ ' 

87SS ■ PASA EL CONTROL 

• LA PANTALLA - 
- CORRESPONDI 

ENTE 

880 " 

390 OOSUB 1330: OOSUB 340 
900 ON PA GOSUB 1840, 1860, 1880, 190jl 
, 1920, 1930, 1980,2010,2030,2070,2090 
,2130, 2130, 2170, 2190, 2220, 2250, 2290 
*10 AÉ=239:I=3 

920 X=l:IF (PA=6 OR PA=13i THEN Bl 
' ELSE B1=0 

940 MOVIMIENTOS DE MEL 

930 • 

O60 ON STRIO GOSUB 1180,1180,1180 
970 ON SPRITE GOSUB 1700 
980 VPOKE 6913.X: VPOKE 69 14 , ZZ ( Z ) : '. 
POKE 6917.X+LÍZ) : VPOKE 6918, C: VPOKE 

691 2 , 100: VPOKE 6913, 13: VPOKE ~" 
lló:VPOKE 6919,13 

SPRITEO 



INTERVAL ON:STRIG(TS)l 



ÍSII V F im AND N B2Ü 0 



'0¿0 GOTO 1000 



1080 RETURN 
1090 STRIG(TS)OFI 
OUND 8, 13:F0RT=Y 



1310 



SPRIT! 



iFF: STRIG (TS 



2v F T§ E I^0?^V B SP^?É S ^^X?l2=K? 
,3,23:PUT SPRITE 2, (X, t! . 13, 8: SOL 



1150 ' 



20 GOTO 
.30 INTEI 

off:beep 

'" PIJ \lfE"2Í^xTT! ;Í3ÍÍ:S0ÜN 
iOSÜB 1O0O:SOUND 0.0: GOTO ITBS 
-SALTO 

1180 STRIG (TS) OFF: INTERVAL ON:GOSUB 
1790: T=Y: VPOKE 6994,88: VPOKE 6993, 
3: VPOKE 6922,32: VPOKE 6923,13 
1190 GOSUB 1260 

1200 T=T-2!IF T<>74 THEN 1190 
1210 BEEPISOUND 6,13:S0UND 7,7:S0UN 
D 8, 16:S0UND9, 16:S0UND 10.16: SOUNDJ 
SOUND 13,¿:S0UND 8, 

0: VPOKE 6994,92 
1220 GOSUB 1260 
1230 T=T+2:IF TOY THEN 1220 
1240 GOSUB 1800: STRIG í TS ) ON 
1230 BEEP:VPOKE 6913,X:VP0KE Ó917.X 
+L(Z): VPOKE 6912, 100: VPOKE 6916,116 
: RETURN 1020 
1260 Z=STICK(TS. 
1270 X=X+X1(Z¡:IF X<0 THEN X=0 ELSE 

IF X>243 THEN X=243 
1280 VPOKE 6993.X+12:VP0KE 6921, X:' 



Programa i 



T- 13: VPOKE 6920 , T 

ACTUALIZA ENERGIA **** 

torfttfKm^■iW*■ 1 ' ,, 

330 RETURN 



370 PV**MID«(STR*<PA) ,2) :PV*=RIGHT 
' ■0"+PV»,2) 
80 F0RT=1 TO 2 

90 COLOR 13:PSET('T,0> , l:PRINT/fl, " 
00 PSET179+T.0) , 1 : PRINTftl , " ENERO I 
10 PSET (79+T.9) , l:PRINTM , "PANTAL 



. ._ R»(PU) ,2) :P*=RIGI 
00000"+P*,6> :LINE(0,9) - (60, 13) 

I COLOR 7:FORT=10 TO U:PSET(T,9 

PRiNmi + p»:psET<i40+T.9) ,i:pr1n 

4=¿?^7bi:¿;¿i 4Ér ' 7),7,BF:LiNE 

1 Í0 L T^N ( !,9| é> - (lM - l9lÍ ' l ' BF:IF 
— ' TO VI:CIRCLE(T*16. 180) 



-MARCADORES-- 



-PASA DE PANTALLA-- 



ü0 intervaloff:sprite off:strig<t 

OFF¿BEEP:NE=0:PLAVO5L6V15AFCGGC- 



0 S0UND8, 15: H=AE- 137: FORT=AE TO 
STEP -1 

0 sound 0,h:h=h-i:pset<t.i;.i:df 

- - 0RR=1 TO 7: NEXTR, T 

530 PU=PU+INT(NE*230, 
560 BEEP:PLA'i -V15L3206DFFD" : GOSUB 



■-DESCUBRE EL TRONO- ■ 



!Í0 ^ A AÍ:2Íb7? 3 éffi¿!Ii; 3 R64 a ABR6 



\ 00=1 : GOTO 2490 

-PIERDE UNA VIDA- 

JFF: intervaloff:s 

off:beep: sound 8,15:gosub i 

710 SPRITE*(30)=SPRITE*(0) :SPRITE* 
11 ) =SPRITE»(2) 

20 PUT SPRITE 0. (X. V 

SPRITE 1, (X. V) , 13,31 



1730 FORT=0 TO 15 
1740 II=RNDíl)*200: SOUND 0,II:VPOKE 

15296+T.0: VPOKE 15312+T , 0: NEXT 
1750 FORT=0 TO 15 

1760 II=RND(1)*200:SOUND 0, II: VPOKE 
15328+T,0:VPOKli334'l*T,0:NEXT:BEE 
P:PLAY"03L4V15CDEGGFCCC", 'O5L2V10AD 
EC " , "O6V10L2FGFF * 

1770 F0RT*116 TO -35 STEP -1:PUT SP 
RITE 24. (X.T) ,13.8:PUT SPRITE 22, (X 
,T-6). 10.21 :PÜT SPRITE 23,(X+1,T+14 
5 ,14,20 :F0RR=1 TOS ¡NEXTR, T 
1780 VI=VI-i : AE = 239:G0SUB 1450:X-tf 
HR=0:GOTO 920 

6912. 192: VPOKE 6916.192 



VPOKE 6992. 192: VPOKE 6920,192: 



-790 VPOKE 

m¡r. 

RETURN 
1810 ' 

1820 • DATOS DE PANTALLAS 

1830 ' 

1840 CYU=200: GOSUB 730: GOSUB 660 
1850 PUT SPRITE 3 . (80. 1 16) , 13, 16: . „ 
T SPRITE 4r(130.ll6>,l4.16:ON INTER 
VAL=8 GOSUB 2820: X6*60: RETURN 
1860 GOSUB 590: CYV»200: CV=15: GOSUB 

1870 PUT SPRITE 3. (40, 1 16) . 14. 17: PU 
T SPRITE 4, (80.116), 7, 16:Y7*193:0N 
INTERVAL=8 GOSUB 2870-RETURN 
1880 30SUB 470: GOSUB 520:FORT=48 TO 
STEP 3:LINE(19É>,40;-(239,T, 



T SPRITE 
TE 3, (13 
186,160) 

ó; ,3, ■-■ 

TURN 



SPRITE 3. {áe.llái.l- 
4. (100. lió) , 13. 16:PI 

t,ló0;,l5.i7:put spr: 



_.PUT 

SPRITE 6, . 

1bs. 1601 . 13. 17:put sprite 25,(204,1 
ó),3,13:0n Intervalos gosub ¿820: re 



900 GOSUB 660 : GOSUB 5 

.910 PUT SPR 
T SPRITE 4, < 



20:cvv=80:gos 
3:pu 

interval=9 gosué 2920: return 



j, iev.iiai . iz.isrpi 

lió) ,3,15:X8=60:ON 



UB 500: D=6509: N=4: GOSUB 500: VPOKE 6 
174 .64: VPOKE 6485,65 
930 FORT=6490 TO 6492: VPOKE T,9:NE 

!ITE 3, (89,76) .14.17:PUT 
m31,76) , 15, 17:0N INTERVA 
.--r uuoud 2990: RETURN 
.950 GOSUB 480!GOSUB 720:GOSUB 630; 
D=6410: N=10: GOSUB 500:GOSUf "" 
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19,40 FORT=20 TO 80 STEP 5:LINE(8,62 
>-.'T,40) ,14:NEXT 

1970 PUT SPRITE 3 , (50. 1 16 > .12. 13: PU 
T 3PRITE 4, (0,62) ,12,13:PUT SPRITE 
3, (120,46) , 12. I3:PUT SPRITE 6,(140, 
46),12,15:0N INTERVAL=8 GOSUB 2720: 
RETURN 

1980 GOSUB 7Ó0:GOSUB 720: L=Ó402: N=2 

T=6309 Tü ¿514 STEP 2:VP0KE T,63:VP 
OKE TU,64:NEXT 

1990 VPOKE 6443.64: VPOKE 6432,64:VP 
OKE 6483,64: VPOKE 6476,64 
2000 PUT SPRITE 3. (0. 64 i , 7, 13: PUT S 
PRITE 4, (90,116) .14. 1?:PUT SPRITE 3 
, ( 136, 72), 13,16: ON INTERVAL=8 GOSUB 

2980: RETURN 
2010 GOSUB 720: GOSUB 390 
2020 PUT SPRITE 3. ( 100. 1 16) , 13. 17: P 
UT SPRITE 4. (133,116) ,14, 17:PUT SPR 
ITE 3, (30, lió) .8, ló:ON INTERVAL=7 G 
OSUB 2970: RETURN 

2030 GOSUB 660:3OSUB 780: D=64óó: N=8 
: GOSUB 300:LI»2:LS=234:KO=234 
2040 FORT=40 TO 72 STEP 2:PSET(150, 
T) ,13: PSET (131,T+1 ) ,13: NEXT 
2030 F0RT=6323 TO 6389 STEP 32:VP0K 
E T, 1 78: VPOKE T+3,178: VPOKE T+6,178 
:NEXT:F0RT=Ó418 TO Ó430 STEP 32¡VP0 
KET, 18: VPOKE T+3, 18: VPOKE T+9,18:NE 
XT: VPOKE 6491, 18:FORT=40 TO 96 STEP 

5:LIME¡232.8á) - (233, Ti , 13:NEXT 
2060 PUT SPRITE 3 , ( 144, 80) , 14, 17: PU 
T SPRITE 4, (168,76) . 13, 17:PUT SPRIT 
E 6, (192,64) ,14, 17:PUT SPRITE 7,(21 
6,82), 13. 17IPUT SPRITE 3, (104.62-, 3 
, 11 :ONINTERVAL=ó GOSUB 2670: RETURN 
2070 GOSUB 660:GOSUB 720: J0=26 : J I =3 
0:XI=40 

2080 PUT SPRITE 3, (50, 1 16) , 8, 13: PUT 
SPRITE 4, (90 1 116),8,l5:ON INTERVAL 
=10.5 GOSUB 3000: RETURN 
2090 GOSUB 660: GOSUB 760: GOSUB 640: 
C=648ó:N=8: GOSUB 300: D»6306 : N= 1 0 : GO 
SUB 300:VPOKE 6311,15:VP0KE 6512,15 
2100 F0RT=6313 TO ¿377 STEP Ó4:VP0K 
E T,128:VP0KE T+l , 129: VPOKE T+12, 12 
8: VPOKE T+l 3, 129: NEXT: VPOKE 6343,12 
9:VPOKE 6346, 128: VPOKE 6337, 129: VPO 
KE 6338,128 

2110 F0RT=184 TO 255 STEP 5:LINE(18 
4,40) - ÍT.87) , 14.-NEXT:F0RT=6467 TO 6 
469: VPOKE T. 13: NEXT 

2120 PUT SPRITE 3, ( 213, 1 16 ) , 13, 16: P 
UT SPRITE 4.(80, 116i.8,ló:0N INTERV 
AL=8 GOSUB 3010: RETURN 
2130 '"-OSUB 470:CC = 30:GOSUB800:C,'V=1 

60: CV-- 10: GOSUB710: B2=i : l 1=152 : ls=22 

4:K0=221:G0SUB 390 

2140 PUT SPRITE 3, (40. 1 16) , 13, 17: PU 
T SPRITE 4, (133, 116) , 13, 17:PUT SPRI 
TE 5, (150,155) ,14,17: PUY SPRITE 6. i 
186.133), 15, 17! ON INTERVAL=7 GOSUB 
2670: RETURN 



GOSUB 760:D=6464:N=3:í 

8: ji=30:x'--' 



:süb 



= 144: ON 



. 3=90:x3=li7: i'4- 

INTERVAL=8 GOSUB 2810: RETURN 
2170 GOSUB 660: GOSUB 720 
2180 PUT SPRITE 3, ( 50, 1 16) , 15, 17: PU 
T SPRITE 4. (100. lió) , 12, 13:0N INTER 
VAL = S GOSUB 302¿CY3=l90:XÓ=120: 111=4 

2190 GOSUB 470: GOSUB 520: GOSUB 720: 
GOSUB 630:B2=1 

2200 PUT SPRITE 23. (203, 16 i . 12 , 13: P 



T/ra que ningún lector 
quede al margen te propo- 

i Participa con tu pe- 
queño programa de grifi- 



FALLO Y 
JURADO 

." El Departamento 
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Programa ■ 



UT SPRITE 26. ( 222 . 16 > , 3, 13: PUT SPRI 
TE 3. (30, lió!, ó, 13:PUT SPRITE 4.(75 
.116! ,12,13:PUT SPRITE 3. (123, 116), 
8, 13:PUT SPRITE 27, < 130, 133) , ls, 17: 
PUT SPRITE 28,(186 135) 14, 1? 

ON INTERVALOS GOSUB 1310: RETI" 



,i»,16:PUT SPRITE ó, (232,63) ,11,15 
2240 PUT SPRITE 3 . ( 30, 1 17 ¡ , 2, 1 1 1 IPUT 
SPRITE 4, (103, 117) .3, 12: ON InTERVA 

. 

2230 GOSUB 630: D=6486:N=8: GOSUB 300 
:GOSUB 680 

2260 F0RT-Ó442 TO 6306 STEP 64:VP0K 
E T,64:VP0KE T+1,65:VP0KE T+10,64:V 
POKE T+11.63:NEXT:F0RT*6412 TO 6540 
STEP 96: VPOKE T, 64: VPOKE T" ' 
'£ T + ó * — 



i. 65: NEXT 



. ,63:VP 



OKE T*5, 64 ¡VPOKE 
"270 FORT=0 TO 3£. _.. 

!T.40i,13:LINE(233,6. 
.4: NEXT 

2280 Y3=30: 74=80: PUT SPRITE 3, u«, 
-.16) , 10, li:ON INTERVAL=8 GOSUB 2800 
. RETURN 

2290 GOSUB 630: GOSUB 660: GOSUB 320: 
2300 FORT=6494 TO 6633 ¡VPOKE T,9:NE 

2310 FORE=80 TO 66 STEP -7:F0RT=132 
TO 230 STEP 27:PSETÍT,E> , 10:DRAW" 
1 •+BA*:PAINT(T+3,E-4i , ll:PSET(T,l 

,1:DRAW BA*:NEXTT,E 

2320 PUT SPRITE 3 , (25 , 1 16) , 14 . 17 ¡ Pu 
T SPRITE 4, (64,64) , 14, 17:PÜT SPRITE 
GBsUB 0 ?3Í0fRÉTURN 7: ° N INTER ^=<- = 
2330 RESTORE 2430:FORT=2 TO 4:F0RR= 
T*256 TO T*236+15 

2340 READ A*:V = VAL("Í<H"+A4 ; :VPOKE R 
V: VPOKE R+1776,V:IF T=4 THEN VPOKE 
R+3384.V ELSE ÍF T<>3 THEN VPOKE R 

2330 VPOKE R + 8192,e<HF0:VPC 
00 , &HF0 : VPOKE Rt9968,t<HA0 
2360 NEXT R.T: GOSUB 400 
2370 F0RT=6272 TO 6303 STEP 2: VPOKE 

T.128:VP0KE T+1.129:NEXT 
2380 CC=5: GOSUB 800: CC=1 1 : GOSUB 800 

:CC«17:gosub B00:cc*23:oosur — ■ 

2390 FORT=6620 TO 6623 STEP 

T, 30: VPOKE T* 1,31: NEXT 
2400 F0RT=Ó632 TO 6635 STEP 2: VPOKE 

T, 94: VPOKE T* 1,93: NEXT 
2410 VPOKE 6327, 30: VPOKE 6339. 62: VP 

l0l^;Pí0lFogtii 3 T6 9 ?;P S ÍTÍ=0 + T 

¿ 0í.:printm,-sala del trono real-:n 

2440 GOTO li 

8 4 fc Í^ t 5C 1 ee"'- F ^ A E'- d ^ a ^=^"^ f 

= 3F A -' 



i DATA 1F,FB,F/,mF,B7. AF.37. AF.F 
2460 J ' 



-FINAL DE PARTIDA-- 




6.1V1I .i.Bh : l»KAWBn90, . 

"Same over" :fort=0toi0. 

EN0:GOTO 2360 

2300 SCREEN0: LOCATE . 

BONUS ! 1 " 

2310 LOCATE ll,8:PRINT"i 
2320 PRINT TAB(ll) 
2330 PRINT TAB (11) 



:s60 ^Lü:FU"KU+Bu:LUi.rtrt z, z 
TO LEN(FI*(OOi ) :PRINT MID*(l 

23 T 7¿ ' ¿OcW = %mif&tifflid¡D " 
U! " PUNTOS" 
2380 IF PA=18 AND V! 
2390 LOCATE 2, 10:PRii 
.LA "¡PA 



00, 



PUNTOS" 

""'0 THEN 2600 

IT"V HAS LLEGAD 

... ¡PA 

2600 IF PU>*RC THEN RC»PU: NR»=NN*: L 
OCATE 2, 14:PRINT"NUEV0 RECORD DE 



'¡NI. 

2¿10 LOCATE Z,Z0:PRII 
NTENTAR DE NUEVO S/N' 



TE 2.20:PRINT"LO QUIERES ] 



2630 GOTO 2620 
2640 • 

2630 • MOVIMIENTO DE MALOS- - 

2670 SWAP F1.F2:K0=K0+KU 
2680 IF KO=LS THEN KU=-KU:I 



2690 IF KO=LI 



F1=24:F2= 
THEN KU=-KU:F1=32:F2= 



2700 VPOKE 696 l.KO: VPOKE 6962,F1:VP 
OKE 6963,3:VP0KE 6960.111 
2710 GOSUB 1310: RETURN 
2720 GOSUB 1310 
2730 Jr=JI+3 
2740 VPOKE 6968, Jl: VPOKE 6969,J0:VP 
OKE 6970, 16: VPOKE 6971,7 
273ÉI IF }I>114 THEN VPOKE 6908,114: 
VPOKE 6970,20: JI=XI:SOUND 0,1:SOUNB 
1.3:S0UND 2,2:S0UND 3,3:S0UND 4.20 
0.-SOUND 3,3:S0UND 8,16:S0UND 13, 9: S 
OUND 7,36 
2760 RETURN 
2770 VPOKE 6944,X3:VP0KE Ó943,Y3:VP 
OKE 6946, M: VPOKE 6947,12 



REGALATE UN LIBRO 
VITAL PARA EL 



2780 SWAP M,W 
2790 RETURN 

2800 GOSUB 2770: VPOKE 6956, X3 \ VPOKE 
6957, Y4: VPOKE 6958, M: VPOKÉ 6959,2: 
~ -310: RETURN 



GOSUB 2720 : RETURN 
2820 QOSUB 1310 
2830 IF XÓ=U3 THEN G=-3 
2840 IF X6 = 60 THEN G=5 
2850 X6=X6+G:SWAP E,F 

2860 VPOKE 6948, X6: VPOKE 6949. 26: VP 

OKE 6950, E : VPOKE 6951 , 10: RETURN 

2870 GOSUB 1310 

2880 IF V7=120 THEN MM=5 

2890 IF Y7*195 THEN MM=-3 

2900 Y^Y7 + MM:SWAP LP.LT 

2910 VPOKE 6932. lió: VPOKE 6953, Y7: 

4 , LT : VPOKE Ó955.4:RETURN 
2920 GOSUB 2820 
2930 IF X8=U5 THEN I*-5 
2940 IF X8 = 60 THEN 1=3 

Wá V : P 3 Ó-K X E 8 + ¡96 S 4 W ; X P 8?V F C 
POKE ("" 
297P C 




PRESENTACION-- 



3050 
3060 PLA 

GEFDCDGRbUDrt^rtZrtB - , "Lll 
CD " , ■ L 1 06V 10M 1 6000DEAA ' 
3070 RC*=STR* ¡RC > : RC»=RIGHT» I -00000 
"+RC*,Ó> 
FORT=0 TO 2 



3090 COLOR 13:PSET(19tT,I0>,l: 
(ti. "ANTONIO VERDU" 
3100 COLOR 2:PSET(59 + T,40i ,1:PI 



PRIN 



i. -PRESENTA A" 
3Í10 COLOR 7¡ — 



PRINTft 



: E TR 2 ONOI' 5 



1, "EN BUSCA DEL .... 
3l20 PSET(19 + T.105i,l:PRINTrtl, 
CASTILLO NUBEAL" 
3130 COLOR 4:PSET(193 + T,4¡,l:PRINTIt 
l.NR» 

3140 NEXTT 
3150 FORT=l TO 2 

3160 COLOR 11:PSETC144+T,1ó0¡,1:PRI 

3170 PSET (144+T, 170¡ , 1 : PRINTItl 
. -JOYST ( ' ' " 
3180 PSET 
. -JOYST <_. 
3190 PSET( 150+T, 19) , 1 : PRINTItl , "RECO 

rd: "tRc» 

3200 NEXTT 

3210 COLOR 15:DRAWBM150,140":l 
Hl. "ELIJA OPCION" 
3220 LINE¡145,15)-(255.30¡.15,1 
3230 LINE(180,0)-(227,13),15.B 
.1240 DRAU"BrUó3,34S 

INTÍ168.34Í ,13 
3230 DRAW " Bl" :3t2L4DR2LL2 
DR4D2L5U:' 5), 13 

3260 DRAWBM225.54C13U2R2D5R2ERD3LÓ 
U6":PAINT(228,54) , 13 
3270 LINE (40, 120 i - ( 125, 

RT=50 TO 120 STEP 2:CIÍ 

ND(1 )*4,15:PAINT STEP(0,0i, 




Y ADEMAS PROGRAMAS DE EJEMPLO 

Moon Germs. Bossa Nova. Blue 
:n. La Flauta 
8c Donna Lee. The en 
erpetuo. Modificación 
sen3-D.Juegode cara 
_ D 3 Matemático. Mas gr; 
Poker. Breackout. Apocalypse Now. El robot sal 



HATTAN TRANSFER, S.A. 
Nombre y apellidos.... 



... CP.... 



! Este boletín me da derecho a recibir los se 
j mi domicilio libre de gastos de envío o cualquier otro 
¡ cargo. No se admite contrareembolso. 
! Importante: Indicar en el sobre MANHATTAN ¡ 
1 TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA j 



Programa ■ 



3300 PUT SPRITE 0. (200, 95 ) , 13.0: PUT 
SPRITE 1, (199,111 >,13,2:PUT SPRITE 
2, (210. 90. , 3, 22: PUT SPRITE 3,(214, 

83! , 12,22:PUT SPRITE 4, (206, 83) ,S, 2 



3310 IF PLAYÍ0Í THEN 33 lk 



3330 IF H=4 THEN H=l ELSE H=4 
3340 30T0 3320 

3330 IF A*="l" OR A»="2" OR A*="! 

THEN 3360 ELSE 3320 
3360 TS=VAL(A»¡-l:DRAW"S0":GOSUB J 

80:return 

3370 ■ 

3380 ; DATAS 

3400 DATA 7. IF. ID. 3B. 33.3F.3F, IF. : 
,3E,3F,3F,3F,3B,3B.3¿,E0,C0.C0,C0, 
0,C0.C0.e1.EB.EB.3¿,BÉ.F8.F0.E0.0 





3410 DATA ?,3,3,3,3,3,3,8? 1 D?.D?,3A 

,7D,lF,F,3,C,E0,a8,D8,AC,FC.FC.FC.F 

8.FO,7C,FC,FC,FO,DO,D0.30 

3420 DATA F.lF.lF.lF.lF.lF.lF.lF.iF 

¿ l h l h l h l h 1 k 3 k F k F h F k F k F k F 

3430* DATA F, 1F, 1F, 1F, 1F, 1F.1F, 1F.1F 
, IB, 1E, 1D,3B,3E.3A.7F.F6.F8.F8.F8.F 
8,F8 > F8,F8,F8,78 p F8,Fé,D8,E8,B8,D0 
3440 DATA , , 1 , , 1 ,3 , 3,F , 1F, 1F , F, 7 , , , 
iiiiiiiBí.tí.W, B0, 70, E0,¿0. , . , 
34*0 dAtA^,^,^,^, ¿0,4,11,41b,, , 

34¿0'dATA 3F,73,f1,FF,FF.EF,3F,1F.7 

,73,3B, 1B,B,3,1, ,,80,00, O0,E0,E0, 00 

.C0.CC.9C,B8,B0,C2,FC,F8,70 

347b DATA 3F , 73 , Fl , FF, FF , EF , 3F , 1F , 7 

, 67, 77, 77 , 3B, B, 1 , , , 80, C0, C0, E4 , EF , C 

F.0É,DÉ,98.B9,B1 £2,FÉ,FC,70 

3480 DATA 3 , F ! 1F, 3F ' 79¡ 79 ' FF , FF , FF, 

FF,7B,78,3o! 1F, F, 3, O0,F0,F8, FO , 9E, 9 

E,FF, FF.FF.FF.DE, 1E, 30 , Fñ, F0, C¿ 

^ 9 U^tWU s U e Íi B3 i 9F ^h%i 9 h 

,A¿ L Fl.C9,48,2¿.2l,2l' 1 1.21,42 ' 
3300 DATA ,38,44,92,2F,47,9F,A3,A3. 
A4, A4. 24, 24, 24, 24,48, . 10 ,22 ,49, F4, E 
2,1^9,^5,03.23.23.24,24.24.24. 12 
3510 DATA C, 3F.7B,F5,FB,7F,3F.C,,1, 
2. ..4,2,15, , ,80,00,00,80, 40,00,43,4 

E . tt , 3C .78. 40. D0, 28 

3320 DATA C , 17 , B.23.D1 ,03 ,3F ,0 , , , . . 
8,4, 2A, 13, ,. 80, 00. 00, 80, 40, 00, 43, 4E 
,40,50,00, 48, D0,28 

3530 DATA ,1,3,3,7,7,3,3,33,39,10,0 

,43,3F, lF,E,FC,CE,éF,FF,FF,F7,FA,F8 

.E0.OE I OO,D8,D0.O0.80. 

3540 DATA , 1,3,3,47, F',F3,73,7B, 19, 

1D.D.43, 3F, 1F,E.FC.0E.8F,FF,FF,F7,F 

A . F8 , E0.EcS.EE , EE ,D0 , D0, 80, 

3550 DATA 7, 1 , 1 , 3 , F , 3F, 7F, FF, 5F, BF, 

3F,BF,FD,7B,3D. ID, E0, 80, 80, 00, F0, 7¿ 

,AE,D7,EB,FÍi,EB I F5 1 EB,D6,E0,F8 

3560 DATA ,00,70,26, 14, A,5, 2.1 .,, 2, 

5^ 8,10,88,44,A8 > 78,3¿,7É,9F 

3570 DATA 1F, 3F , 3F , Bl ,01 ,Ai , 63. B3 . F 

F, FD,7F,3F. 19, C , F, 7, F8, FO , FE, 8F, 87, 
87, C6, CF,FA,B5,FA,FC, 18,30, F0.E0 
3580 DATA 7 ,7,7,7, 7,F, £,10,10,10, 10 
, 1C, 1C, 18,Fe,F8iF0iF8,Fé,F8,F0,ó0,ó 
0,70, 30,30, 38, 10, 1C,6, 1F. 1F 

3390 DATA F, F , F , F , F , F, 7, 3,3,3 ,1,1,1 
, 1, 1F, 1F,E0 1 F0,F0,F0,F0,E0,E0 I 80,80 
,80,80,80,80,80,80,80 
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PÍDENOS QUINIELAS HOY MISMO SÓLO 1000 ptS. 



EL VDP DE 
LOS MSX2 (IV) 



En esta cuarta entrega de la 
serie que dedicamos al VDP de 
oos MSX2 se toca el tema del 
volcado de la memoria de vídeo 
en la impresora (hardcopy). 



IMPRESORAS MATRICULES 

Los MSX2 disponen de una reso- 
lución muy respetable. Esto da 

interés™ la posibñidadde plasmarlos 
en papeL ya sea para tener constancia 

de vista a la hora de confeccionar 
gráficos de cualquier clase. 

A lo largo de estas páginas se descri- 
be una sencilla rutina de hardcopy, que 
confío sirva de base para que realices 
un programa más complejo adaptado a 



a propuest 



ras Je Margarita o los plotters P 



estas paginas y sé bien que mucho 
usuarios tienen problemas para poner 
las en marcha. Ello es debido a ta grai 
diversidad de impresoras matriciale 



disponen de una impresora EPSON- 
compatible. Es por ello que me ha 
parécido aconsejable construir dos ver- 
impresoras MSX y otra para impreso- 
ras EPSON. De cualquier forma, al 
final de estas páginas le incluido un 



ar los problemas de los us 



sí 1/72 de pulgada (algo más de tres 
décimas de milímetro). En modo gráfi- 
co, estas impresoras suelen emplear 
únicamente las ocho agujas superiores. 
Cada byte que se manda a la impresora 



de pantalla. 

LA RUTINA DE HARDCOPY 

La rutina de hardcopy propuesta 
trabaja en el modo SCREEN 8, aunque 
puede ser adaptada fácilmente para 
otros tipos de pantalla. Este modo 
tiene una resolución de 256 x 212 
puntos. Puesto que las impresoras es- 
criben ocho puntos a la vez, el total de 
líneas a imprimir es de 212/8, es decir, 
26,5 líneas. Para no alargar demasiado 
la rutina, sólo se imprimirán 26 líneas. 



110 del listado fuente (LD B,26) y haz 
que se explore una línea más. A conti- 
nuación, deberás incluir algunas ins- 
trucciones para detectar cuando se está 
tratando la línea 27, a fin de enmascarar 
el acumulador inmediatamente después 
de leer el dato de la VRAM con CALL 
VPEEK. La máscara a usar es AND & 



papel, pues 
VRAM máa allá de la dirección 256 x 
212 es indeterminado y aparecerían 
puntos no deseados en la copia impre- 



problema es poner a cero con VPOKE 
todos los puntos comprendidos entre 
las direcciones 256 x 212 y 256 x 
(212 + 4), justo antes de llamar a la 

El programa usa Ja salida^del BIOS 

impresora (&HA5). EstTservicio'del 
BIOS pone el carry a uno cuando se 
pulsa CTRL-STOP. La rutina detecta 

cuando se pulsan^las teclas referidas, 
provocando un error 19 (Device 1/0 

TONOS DE GRISES 

El criterio seguido para imprimir o 
no un punto es leer el color, que está 
codificado en RGB, hallar la suma de 
intensidades de los tres colores básicos 
y compararla con un dato prefijado por 

punto es más oscuro que el valor fijado 
y se imprime. El valor máximo del 
color rojo y del verde es 7, mientras 
que el azul es 6 (2x3). Por tanto, la 
suma oscilará entre 0 y 20. La figura 1 



CALL XXV 
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■ Por Carlos Mesa, 



MEGA JOYSTICK* 



Este apartado de entrevistas ha 
sido realizado gracias a la cola- 
boración de 



E gramf Sábado Chip. Por otra 
parte Ta despedida de este apartado de 



Madrid. Es el último encuentro en un 
oscuro sábado, uno de octubre, día del 
nacimiento de Mega Joystick. 



Arriaza: -¿Qué pretende la revista 
Mega Joystick? 




que está buscando: cargadores, mapas, 
comentarios de calidad, espectacularei 



las preguntas relacionadas con la revis- 
ta. Añado la circunstancia de que, 
todos aquellos que nos llamen, rea- 
brán una suscripción gratuita de Mega 
Joystick. 




levantado, antes que tú dijeras lo qu 
has dicho. Mas vamos a dar prioridad 



PC y Compatibles. Y también vamos a 
hablar de algo que nadie había comen- 
tado hasta ahora, las consolas de juegos. 



Nueva llamada. 

Oyente: -¿Váis a incluir cargadore 
para que los programas ingleses que ni 
respeten las normas del estándar cargei 



TRUCOS DEL PROGRAMADOR 




VISUALIZAR DESDE 
MSX-DOS LAS TECLAS 
DE FUNCION 



MSX-DOS el 



e a COM- 



1 rem key on.com 

10 Open "KEYON.COM" for 

20 fot i=l to 13: read a$ 

30 pr¡nt#l, chr$(val("&H" + a$)); 



Los interesados en participar en 
trucos y descubrimientos de pr 
MANHATTAN TRANSFER, S 
Sección: Trucos del programadi 
Roca i Batlle, 10-12, bajos 
08023 Barcelona 



20 fot i=l to 184:read a$ 
30 print#l, chr$(val("8cH"+a$)); 
40 next 
50 end 

60 data 21, 18, 1, ll,7f,f8, l,aO,0, 

ed, bO, 3a, el, fe, f5, fd, el, dd, 21 

70 data cf, 0, c3, le, 0 

80 data 64, 69, 72, 20, 0, 0, 0, 0, 0, 

0, 0, 0, 0, 0, 0, 0 

90 data 72, 65, 6e, 61, 6d, 65, 20, 0, 

0, 0, 0, o, o, o, o 

100 data 63, 6f, 70, 79, 20, 0, 0, 0, 0, 

0, 0, 0, 0, 0, 0 

110 data 64, 65, 6c, 20, 0, 0, 0, 0, 0, 

0, 0, o, o, o, o, o 

120 data 62, 61, 73, 69, 63, 20, 0, 0, 

0, 0, 0, o, o, o, o, o 

130 data 64, 69, 72, d, 0, 0, 0, 0, 0, 

0, 0, 0, 0, 0, 0, 0 

140 data 76, 65, 72, 72, 69, 66, 79, 

20, 0, 0, 0, 0, 0, 0, 0, 0, 0 

150 data 6d, 6f, 64, 65, 20, 0, 0, 0, 0, 

0, 0, 0, o, o, o, o 



for 

mtput as#l 

!0 for i=l to 23:read aS 
10 print#l,chr$ 
vaf("&H"+a$)); 
10 next 
¡0 end 

.0 data 3a, el, fe, f5, f5, fd, el, dd, 




a sección, pueden enviar sus 



i0 data 66, 6f, 72, 6d, 61, 7 



NOTA: KEYON y 



KEYON.COM, KEYOFF.COM, 
RSTKEY.COM y SETKEY.COM. 

4.- Pasar a MSX-DOS con un RE- 
SET o con CALL SYSTEM y compro- 

del programa deseado. Ej : Para visuah- 



Angel Oliver Calafell 



POKESDE 
PROTECCION 
DE PROGRAMAS 

Un par de pokes que harán q 
un programa hecho por u. 
no se pueda listar, y en caso de que 
consiga listar se borrará de la memor 
10 rem pokes de protección 

PI 20 r re"m S por Javi para MSX-Clut 
30 POKE 64443,1 
40 POKE &HFF89.199 
50 END 

podrá listar el programa. 




¡SI TE HACE FALTA ALGUN NUMERO DE lt&A PIDELO HOY MISMO! 
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pón y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 

| BOLETIN DE PEDIDO , 

Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 1 

1 gastos de envío, por lo que adjunto talón n ° del Banco/Caja I 

I por el impone de pus. al portador barrado 

l NOMBRE Y APELLIDOS I 

| CALLE N ° CIUDAD , 

DI' PROVINCIA TEL 



